home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / bigarr / time2win.bas < prev    next >
BASIC Source File  |  1995-01-10  |  46KB  |  648 lines
  1. Option Explicit
  2.  
  3. Global Const GET_TIME_SEPARATOR = 1
  4. Global Const GET_DATE_SEPARATOR = 2
  5. Global Const GET_TIME_FORMAT = 3
  6. Global Const GET_DATE_FORMAT = 4
  7. Global Const GET_CURRENCY = 5
  8. Global Const GET_LANGUAGE = 6
  9. Global Const GET_COUNTRY = 7
  10. Global Const GET_COUNTRY_CODE = 8
  11. Global Const GET_LIST_SEPARATOR = 9
  12. Global Const GET_DEFAULT_PRINTER = 10
  13.  
  14. Global Const DRIVE_UNKNOW = 0
  15. Global Const DRIVE_REMOVABLE = 2
  16. Global Const DRIVE_FIXED = 3
  17. Global Const DRIVE_REMOTE = 4
  18. Global Const DRIVE_CDROM = 20
  19.  
  20. Global Const A_NORMAL = &H0             'Normal file - No read/write restrictions
  21. Global Const A_RDONLY = &H1             'Read only file
  22. Global Const A_HIDDEN = &H2             'Hidden file
  23. Global Const A_SYSTEM = &H4             'System file
  24. Global Const A_VOLID = &H8              'Volume ID file
  25. Global Const A_SUBDIR = &H10            'Subdirectory
  26. Global Const A_ARCH = &H20              'Archive file
  27.  
  28. Global Const ENCRYPT_LEVEL_0 = 0
  29. Global Const ENCRYPT_LEVEL_1 = 1
  30. Global Const ENCRYPT_LEVEL_2 = 2
  31. Global Const ENCRYPT_LEVEL_3 = 3
  32.  
  33. Global Const OPEN_MODE_BINARY = 0
  34. Global Const OPEN_MODE_TEXT = 1
  35.  
  36. Global Const BIG_ADD = 0
  37. Global Const BIG_SUB = 1
  38. Global Const BIG_MUL = 2
  39.  
  40. Global Const VER_VERSION_PRODUCT = -1
  41. Global Const VER_VERSION_FILE = 0
  42. Global Const VER_COMPANY_NAME = 1
  43. Global Const VER_FILE_DESCRIPTION = 2
  44. Global Const VER_FILE_VERSION = 3
  45. Global Const VER_INTERNAL_NAME = 4
  46. Global Const VER_LEGAL_COPYRIGHT = 5
  47. Global Const VER_LEGAL_TRADEMARKS = 6
  48. Global Const VER_PRODUCT_NAME = 7
  49. Global Const VER_PRODUCT_VERSION = 8
  50.  
  51. Global Const LNG_FRENCH = 1
  52. Global Const LNG_DUTCH = 2
  53. Global Const LNG_GERMAN = 3
  54. Global Const LNG_ENGLISH = 4
  55. Global Const LNG_ITALIAN = 5
  56. Global Const LNG_SPANISH = 6
  57.  
  58. Global Const MB_MESSAGE_LEFT = 0
  59. Global Const MB_MESSAGE_CENTER = 8192
  60. Global Const MB_MESSAGE_RIGHT = 16384
  61.  
  62. Global Const MB_TIMEOUT_2 = 32768
  63. Global Const MB_TIMEOUT_4 = 2 * MB_TIMEOUT_2
  64. Global Const MB_TIMEOUT_8 = 2 * MB_TIMEOUT_4
  65. Global Const MB_TIMEOUT_16 = 2 * MB_TIMEOUT_8
  66.  
  67. Global Const MB_TIMEOUT_6 = MB_TIMEOUT_2 Or MB_TIMEOUT_4
  68. Global Const MB_TIMEOUT_10 = MB_TIMEOUT_2 Or MB_TIMEOUT_8
  69. Global Const MB_TIMEOUT_12 = MB_TIMEOUT_4 Or MB_TIMEOUT_8
  70. Global Const MB_TIMEOUT_14 = MB_TIMEOUT_2 Or MB_TIMEOUT_4 Or MB_TIMEOUT_8
  71. Global Const MB_TIMEOUT_18 = MB_TIMEOUT_2 Or MB_TIMEOUT_16
  72. Global Const MB_TIMEOUT_20 = MB_TIMEOUT_4 Or MB_TIMEOUT_16
  73. Global Const MB_TIMEOUT_22 = MB_TIMEOUT_2 Or MB_TIMEOUT_4 Or MB_TIMEOUT_16
  74. Global Const MB_TIMEOUT_24 = MB_TIMEOUT_8 Or MB_TIMEOUT_16
  75. Global Const MB_TIMEOUT_26 = MB_TIMEOUT_2 Or MB_TIMEOUT_8 Or MB_TIMEOUT_16
  76. Global Const MB_TIMEOUT_28 = MB_TIMEOUT_4 Or MB_TIMEOUT_8 Or MB_TIMEOUT_16
  77. Global Const MB_TIMEOUT_30 = MB_TIMEOUT_2 Or MB_TIMEOUT_4 Or MB_TIMEOUT_8 Or MB_TIMEOUT_16
  78.  
  79. Global Const MB_DISPLAY_TIMEOUT = 524288
  80.  
  81. Global Const RS_CAPTION = 1
  82. Global Const RS_TEXT = 2
  83. Global Const RS_DATAFIELD = 4
  84. Global Const RS_DATASOURCE = 8
  85.  
  86. Global Const MATCH_HEXA = 17
  87. Global Const MATCH_INTERNAL_ERROR = 16
  88. Global Const MATCH_PATTERN = 15
  89. Global Const MATCH_LITERAL = 14
  90. Global Const MATCH_RANGE = 13
  91. Global Const MATCH_ABORT = 12
  92. Global Const MATCH_END = 11
  93. Global Const MATCH_VALID = -1
  94.  
  95. Global Const PATTERN_VALID = 0
  96. Global Const PATTERN_INVALID = 1
  97. Global Const PATTERN_ESC = 2
  98. Global Const PATTERN_RANGE = 3
  99. Global Const PATTERN_CLOSE = 4
  100. Global Const PATTERN_EMPTY = 5
  101. Global Const PATTERN_INTERNAL_ERROR = 6
  102. Global Const PATTERN_HEXA = 7
  103.  
  104. Global Const IFV_ERROR = 0
  105. Global Const IFV_NAME_TOO_LONG = 1
  106. Global Const IFV_EXT_TOO_LONG = 2
  107. Global Const IFV_TOO_MANY_BACKSLASH = 3
  108. Global Const IFV_BAD_DRIVE_LETTER = 4
  109. Global Const IFV_BAD_COLON_POS = 5
  110. Global Const IFV_EXT_WITHOUT_NAME = 6
  111.  
  112. Global Const DA_BYTE = 1
  113. Global Const DA_TYPE = 0
  114. Global Const DA_INTEGER = -2
  115. Global Const DA_LONG = -3
  116. Global Const DA_SINGLE = -4
  117. Global Const DA_DOUBLE = -5
  118. Global Const DA_CURRENCY = -6
  119.  
  120. Global Const DA_NO_ERROR = True
  121. Global Const DA_EMPTY_FILENAME = 1
  122. Global Const DA_BAD_FILENAME = 2
  123. Global Const DA_CAN_KILL_FILE = 3
  124. Global Const DA_CAN_NOT_OPEN_FILE = 4
  125. Global Const DA_FILE_NOT_FOUND = 5
  126. Global Const DA_BAD_TYPE = 6
  127. Global Const DA_BAD_ROWS = 7
  128. Global Const DA_BAD_COLS = 8
  129. Global Const DA_BAD_SHEETS = 9
  130. Global Const DA_CAN_NOT_WRITE_HEADER = 10
  131. Global Const DA_CAN_NOT_WRITE_PART = 11
  132. Global Const DA_CAN_NOT_WRITE_REMAIN = 12
  133. Global Const DA_CAN_NOT_READ_HEADER = 13
  134. Global Const DA_HEADER_SIZE = 14
  135. Global Const DA_BAD_SIGNATURE = 15
  136. Global Const DA_FILE_SIZE_MISMATCH = 16
  137. Global Const DA_CAN_NOT_SEEK = 17
  138. Global Const DA_INVALID_HANDLE = 18
  139.  
  140. Type tagSPLITPATH
  141.    nDrive            As String
  142.    nDir              As String
  143.    nName             As String
  144.    nExt              As String
  145. End Type
  146.  
  147. Type tagFILEVERSIONINFO
  148.    VersionProduct    As String
  149.    VersionFile       As String
  150.    CompanyName       As String
  151.    FileDescription   As String
  152.    FileVersion       As String
  153.    InternalName      As String
  154.    LegalCopyright    As String
  155.    LegalTrademarks   As String
  156.    Comments          As String
  157.    ProductName       As String
  158.    ProductVersion    As String
  159. End Type
  160.  
  161. Type FileAttributeType
  162.    ErrNo             As Integer
  163.    Archive           As Integer
  164.    Hidden            As Integer
  165.    Normal            As Integer
  166.    ReadOnly          As Integer
  167.    SubDir            As Integer
  168.    System            As Integer
  169.    VolId             As Integer
  170. End Type
  171.  
  172. Type ArrayType
  173.    Bounds            As Long
  174.    LBound            As Integer
  175.    UBound            As Integer
  176.    ElemSize          As Integer
  177.    IndexCount        As Integer
  178.    TotalElem         As Integer
  179. End Type
  180.  
  181. Type tagMODULEENTRY
  182.    dwSize            As Long
  183.    szModule          As String * 10
  184.    hModule           As Integer
  185.    wcUsage           As Integer
  186.    szExePath         As String * 256
  187.    wNext             As Integer
  188. End Type
  189.  
  190. Type tagTASKENTRY
  191.    dwSize            As Long
  192.    hTask             As Integer
  193.    hTaskParent       As Integer
  194.    hInst             As Integer
  195.    hModule           As Integer
  196.    wSS               As Integer
  197.    wSP               As Integer
  198.    wStackTop         As Integer
  199.    wStackMinimum     As Integer
  200.    wStackBottom      As Integer
  201.    wcEvents          As Integer
  202.    hQueue            As Integer
  203.    szModule          As String * 10
  204.    wPSPOffset        As Integer
  205.    hNext             As Integer
  206. End Type
  207.  
  208. Type tagDISKARRAY
  209.    daSize            As Integer           'size of the type'd
  210.    Signature         As String * 7        'signature
  211.    nFilename         As String * 64       'name of the file
  212.    nType             As Integer           'variable type
  213.    nRows             As Long              'number of rows
  214.    nCols             As Long              'number of cols
  215.    nSheets           As Long              'number of sheets
  216.    rHandle           As Integer           'returned handle for use with other functions
  217.    rElementSize      As Integer           'returned size of a element
  218.    rFileSize         As Long              'returned size of the file
  219.    rParts            As Long              'returned total part
  220.    rRemain           As Long              'returned size of the remain part
  221.    rSheetSize        As Long              'size of a sheet
  222.    rOffset1          As Long              'returned offset 1
  223.    rOffset2          As Long              'returned offset 2
  224.    rTime             As Long              'time for the last correct transaction
  225.    nIsTyped          As Integer           'is nType a type'd variable
  226.    dummy             As String * 7        'reserved for future use
  227. End Type
  228.  
  229. Rem Don't Remove It
  230. Declare Function cAddD Lib "time2win.dll" (array() As Double, ByVal nValue As Double) As Integer
  231. Declare Function cAddDigit Lib "time2win.dll" (Txt As String) As Integer
  232. Declare Function cAddI Lib "time2win.dll" (array() As Integer, ByVal nValue As Integer) As Integer
  233. Declare Function cAddL Lib "time2win.dll" (array() As Long, ByVal nValue As Long) As Integer
  234. Declare Function cAddS Lib "time2win.dll" (array() As Single, ByVal nValue As Single) As In